﻿Namespace DotNetNuke.Modules.UsersOnline.Business
    <Serializable()> _
    Public Class StatisticsInfo
#Region "Private Members"
        Private _AnonymousUserCount As Int32
        Private _OnlineTotalCount As Int32
        Private _OnlineUserCount As Int32
        Private _OnlineUserInfo As OnlineUserInfo
        Private _MembershipCount As Int32
        Private _MembershipTodayCount As Int32
        Private _MembershipYesterdayCount As Int32
#End Region

#Region "Constructor(s)"
        Public Sub New()
            _OnlineUserInfo = New OnlineUserInfo
        End Sub
#End Region

#Region "Public Properties"
        Public Property AnonymousUserCount() As Int32
            Get
                Return _AnonymousUserCount
            End Get
            Set(ByVal value As Int32)
                _AnonymousUserCount = value
            End Set
        End Property

        Public Property OnlineUserCount() As Int32
            Get
                Return _OnlineUserCount
            End Get
            Set(ByVal value As Int32)
                _OnlineUserCount = value
            End Set
        End Property

        Public Property OnlineTotalCount() As Int32
            Get
                Return _OnlineTotalCount
            End Get
            Set(ByVal value As Int32)
                _OnlineTotalCount = value
            End Set
        End Property

        Public Property LastUser() As OnlineUserInfo
            Get
                Return _OnlineUserInfo
            End Get
            Set(ByVal value As OnlineUserInfo)
                _OnlineUserInfo = value
            End Set
        End Property

        Public Property MembershipCount() As Int32
            Get
                Return _MembershipCount
            End Get
            Set(ByVal value As Int32)
                _MembershipCount = value
            End Set
        End Property

        Public Property MembershipTodayCount() As Int32
            Get
                Return _MembershipTodayCount
            End Get
            Set(ByVal value As Int32)
                _MembershipTodayCount = value
            End Set
        End Property

        Public Property MembershipYesterdayCount() As Int32
            Get
                Return _MembershipYesterdayCount
            End Get
            Set(ByVal value As Int32)
                _MembershipYesterdayCount = value
            End Set
        End Property
#End Region

    End Class

End Namespace
